home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Grafik & Text & Film / Quark XTensions / Freeware Xtensions / XPress Scripts 1.0 / Crop marks / Crop marks next >
Text File  |  1994-08-10  |  5KB  |  101 lines
  1. tell application "QuarkXPress 3.3"
  2.     activate
  3.     if document 1 exists then
  4.         tell document 1
  5.             copy (count of (generic boxes whose selected is true)) to numSelected
  6.             
  7.             if (box type of generic boxes whose selected is true) = line box then
  8.                 beep
  9.                 display dialog "Cannot put crop marks onto lines." buttons "OK" default button 1 with icon 2
  10.                 do updates
  11.             else
  12.                 copy (display dialog "Set crop marks:" & return & "Crop mark length in pts:" default answer "12" with icon 2000) to x
  13.                 copy text returned of x as real to registrationMarkLength
  14.                 do updates
  15.                 copy (display dialog "Set crop marks:" & return & "Offset distance in pts:" default answer "6" with icon 2000) to y
  16.                 copy text returned of y as real to offsetDist
  17.                 do updates
  18.                 
  19.                 copy tool mode to toolMode
  20.                 set tool mode to drag mode
  21.                 copy item spread coords to itemCoords
  22.                 set item spread coords to true
  23.                 copy horizontal measure to hm
  24.                 copy vertical measure to vm
  25.                 set horizontal measure to points
  26.                 set vertical measure to points
  27.                 copy selection to thatSelected
  28.                 set lineWidth to 0.25
  29.                 set lineColor to "Registration"
  30.                 set regLength to registrationMarkLength + offsetDist
  31.                 
  32.                 repeat with i from 1 to count of picture boxes
  33.                     if selected of picture box i is true then
  34.                         copy bounds of picture box i as list to x
  35.                         copy item 1 of x as real to x1
  36.                         copy item 2 of x as real to x2
  37.                         copy item 3 of x as real to x3
  38.                         copy item 4 of x as real to x4
  39.                         
  40.                         make line box at beginning with properties ¬
  41.                             {left point:{x1, x2 - regLength}, right point:{x1, x2 - offsetDist}, style:solid line, width:lineWidth, color:lineColor}
  42.                         make line box at beginning with properties ¬
  43.                             {left point:{x1, x4 + offsetDist}, right point:{x1, x4 + regLength}, style:solid line, width:lineWidth, color:lineColor}
  44.                         make line box at beginning with properties ¬
  45.                             {left point:{x3, x2 - regLength}, right point:{x3, x2 - offsetDist}, style:solid line, width:lineWidth, color:lineColor}
  46.                         make line box at beginning with properties ¬
  47.                             {left point:{x3, x4 + offsetDist}, right point:{x3, x4 + regLength}, style:solid line, width:lineWidth, color:lineColor}
  48.                         
  49.                         make line box at beginning with properties ¬
  50.                             {left point:{x1 - regLength, x2}, right point:{x1 - offsetDist, x2}, style:solid line, width:lineWidth, color:lineColor}
  51.                         make line box at beginning with properties ¬
  52.                             {left point:{x1 - regLength, x4}, right point:{x1 - offsetDist, x4}, style:solid line, width:lineWidth, color:lineColor}
  53.                         make line box at beginning with properties ¬
  54.                             {left point:{x3 + offsetDist, x2}, right point:{x3 + regLength, x2}, style:solid line, width:lineWidth, color:lineColor}
  55.                         make line box at beginning with properties ¬
  56.                             {left point:{x3 + offsetDist, x4}, right point:{x3 + regLength, x4}, style:solid line, width:lineWidth, color:lineColor}
  57.                     end if
  58.                 end repeat
  59.                 
  60.                 repeat with i from 1 to count of text boxes
  61.                     if selected of text box i is true then
  62.                         copy bounds of text box i as list to x
  63.                         copy item 1 of x as real to x1
  64.                         copy item 2 of x as real to x2
  65.                         copy item 3 of x as real to x3
  66.                         copy item 4 of x as real to x4
  67.                         
  68.                         make line box at beginning with properties ¬
  69.                             {left point:{x1, x2 - regLength}, right point:{x1, x2 - offsetDist}, style:solid line, width:lineWidth, color:lineColor}
  70.                         make line box at beginning with properties ¬
  71.                             {left point:{x1, x4 + offsetDist}, right point:{x1, x4 + regLength}, style:solid line, width:lineWidth, color:lineColor}
  72.                         make line box at beginning with properties ¬
  73.                             {left point:{x3, x2 - regLength}, right point:{x3, x2 - offsetDist}, style:solid line, width:lineWidth, color:lineColor}
  74.                         make line box at beginning with properties ¬
  75.                             {left point:{x3, x4 + offsetDist}, right point:{x3, x4 + regLength}, style:solid line, width:lineWidth, color:lineColor}
  76.                         
  77.                         make line box at beginning with properties ¬
  78.                             {left point:{x1 - regLength, x2}, right point:{x1 - offsetDist, x2}, style:solid line, width:lineWidth, color:lineColor}
  79.                         make line box at beginning with properties ¬
  80.                             {left point:{x1 - regLength, x4}, right point:{x1 - offsetDist, x4}, style:solid line, width:lineWidth, color:lineColor}
  81.                         make line box at beginning with properties ¬
  82.                             {left point:{x3 + offsetDist, x2}, right point:{x3 + regLength, x2}, style:solid line, width:lineWidth, color:lineColor}
  83.                         make line box at beginning with properties ¬
  84.                             {left point:{x3 + offsetDist, x4}, right point:{x3 + regLength, x4}, style:solid line, width:lineWidth, color:lineColor}
  85.                     end if
  86.                 end repeat
  87.                 
  88.                 set tool mode to toolMode
  89.                 set item spread coords to itemCoords
  90.                 set horizontal measure to hm
  91.                 set vertical measure to vm
  92.                 
  93.             end if
  94.         end tell
  95.     else
  96.         beep
  97.         display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
  98.         do updates
  99.     end if
  100. end tell
  101.